home *** CD-ROM | disk | FTP | other *** search
- #include<exec/libraries.h>
- #include<intuition/intuition.h>
- #include<utility/tagitem.h>
-
- #include<clib/exec_protos.h>
- #include<clib/intuition_protos.h>
-
- struct Library* IntuitionBase;
-
- void main()
- {
- IntuitionBase = OpenLibrary("intuition.library",36);
- if(IntuitionBase != NULL)
- {
- struct Window* win;
- win = OpenWindowTags(NULL,
- WA_Left, 20,
- WA_Top, 20,
- WA_Width, 100,
- WA_Height, 100,
- WA_Flags, WFLG_CLOSEGADGET,
- WA_IDCMP, IDCMP_CLOSEWINDOW,
- TAG_DONE, 0);
- if(win != NULL)
- {
- WaitPort(win->UserPort);
- CloseWindow(win);
- }
- CloseLibrary(IntuitionBase);
- }
- }
-